home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_editconfig.edge < prev    next >
Text File  |  1994-11-17  |  563b  |  36 lines
  1. /*
  2. ** $VER: Menu_EditConfig.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Edit the specified configuration file
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* grab the arg */
  12. parse arg name
  13.  
  14. /* is the current window empty? */
  15. getenvvar _fe_size
  16. if result>0 then do
  17.  
  18.     /* open a new window */
  19.     new
  20.  
  21.     /* if all is well then talk to it */
  22.     if rc==0 then do
  23.         address value result
  24.         
  25.         /* find the filename we want */
  26.         getenvvar '_ge_'name
  27.         open result
  28.     end
  29. end
  30. else do
  31.     /* find the filename we want */
  32.     getenvvar '_ge_'name
  33.     open result
  34. end
  35.  
  36.